(dired-readin): Clear modified flag at the very end.

diff --git a/lisp/dired.el b/lisp/dired.el
index 34f4ca86d6b3b5721dccb5035cf850fdfb698457..47e413c72d8ea02e374dc0be69ea74d14fabf4b4 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -477,11 +477,11 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
        ;; alist to be OK.
        )
       (message "Reading directory %s...done" dirname)
-      (set-buffer-modified-p nil)
       ;; Must first make alist buffer local and set it to nil because
       ;; dired-build-subdir-alist will call dired-clear-alist first
       (set (make-local-variable 'dired-subdir-alist) nil)
-      (dired-build-subdir-alist))))
+      (dired-build-subdir-alist)
+      (set-buffer-modified-p nil))))
 
 ;; Subroutines of dired-readin